#!/usr/bin/env perl

use utf8;
use strict;
use File::Basename qw/ basename dirname/;
use File::Spec;

my $path = "/usr/local/bin/perl";

my $base = basename $path;
my $dir = dirname $path;

print "$path --> $base\n";
print "$path --> $dir\n";

print "New name -->	".File::Spec->catfile($dir, $base);
